<%
Function GetFileName(thefilepath)
	GetFileName = Mid(thefilepath,InStrRev(thefilepath, "\")+1)
End  function
Function GetExt(thefilepath)
	Dim strTemp,numTemp
	strTemp=Split(thefilepath,".")
	numTemp=Ubound(strTemp)
	If numTemp=0 Then
		GetExt="No"
	Else
		GetExt="." & strTemp(numTemp)
	End If
End Function

Function BinaryToString(thedata) 
	Dim strNow,strTemp,flag,I
	flag=False 
	For I=1 To LenB(thedata)
		If flag=True Then 
			flag=False 
		Else 
			strNow=MidB(thedata,I,1)
			If AscB(strNow) > 127 Then 
				strTemp=strTemp & Chr(AscW(MidB(thedata,I+1,1) & strNow)) 
				flag=True 
			Else 
				strTemp=strTemp & Chr(AscB(strNow)) 
			End If 
		End If 
	Next 
	BinaryToString=strTemp
End Function 

%>
